:- module(links, [link_info/3], []).

%% link_info(LinkIdentifier,
%%           LinkText
%%           LinkDestiny   --> "Where" or link_page(PageId)

link_info(Id, Title, Link):- linfo(Id, Title, Link), !.
link_info(Id, _Title, _Link):-
        display(link_not_found(Id)),
        nl.

%% Static pages
linfo(main_page, b("Main Page"), link_page(index)).
linfo(related_info, "More Information?", link_page(information)).
linfo(maintenance, "Administration", link_page(administration)).
linfo(partners, "Project Partners", link_page(partners)).

linfo(search_procedure, "How Do I Search?", link_page(search_info, searching)).
linfo(what_are_terms, "What Are Terms?", link_page(search_info, terms)).
linfo(what_are_packages, "What Are Packages?", link_page(search_info, packages)).
linfo(more_search, b("String Search"), link_page(more_search)).

 %% linfo(what_is_amos, "What is This?", link_page(amos_explained)).
 %% linfo(what_are_results, "What is This?", link_page(results_expl)).
 %% linfo(search_error_explained, "What is This?",
 %%         link_page(search_error_explained)).
 %% linfo(what_are_expanded_results, "What is This?",
 %%           link_page(expanded_results_expl)).
 %% linfo(top, "Initial Page", link_page(index)).
 %% linfo(what_is_search,"What is this?",link_page(search_explained)).
 %% linfo(term_desc_explained, "What is this?",
 %%           link_page(term_desc_explained)).
linfo(tech_reports, "Technical Papers", link_page(tech_rep)).
linfo(getting_sources,"Tool Source Code", link_page(getting_sources)).
 %% linfo(status_news, "Status and News", link_page(news)).

linfo(amos_gentle_introduction, "A Gentle Introduction", 
       link_page(amos_gentle)). 

linfo(project_aims, "Project Objectives", link_page(project_aims)). 

 %% 
 %% %% Fixed-address pages
linfo(open_source,   "About Open Source",   "http://www.opensource.org/").
linfo(free_software, "About Free Software", "http://www.fsf.org/").
linfo(ciao_prolog,   "About Ciao",
        "http://www.clip.dia.fi.upm.es/Software/Ciao").
linfo(eu_projects, "EU Projects", "http://www.cordis.lu/").
linfo(conecta_www, "Conecta", "http://www.conecta.it").
linfo(clip_www, "The Clip Group", "http://clip.dia.fi.upm.es").
linfo(mailing_lists, "Mailing List",
        "http://mail.conecta.it/mailman/listinfo/amos-general").
linfo(web_master, b("Web Master"),
        "mailto:amos_at_clip.dia.fi.upm.es").
 %%  %% linfo(db_maintainer, "ERASE THIS",
 %%  %%           "mailto:dbmanager_at_www.amosproject.org").

linfo(cvs_access, "WWW Access to CVS",
%           "http://clip.dia.fi.upm.es/Projects/Amos/amoscvs.cgi/").
           "http://clip.dia.fi.upm.es/ViewCVS/viewcvs.cgi/Systems/Amos/").
 %% 
 %% DB download
linfo(database_download, b("Download the DB"), link_page(download_amosdb)).
linfo(database_upload, b("Upload the DB"), link_page(upload_amosdb)).
 %% %% WebDB-generated pages - password protected
linfo(database_status, b("View System Status"),        link_page(status)).
linfo(review_packages,    b("Review Packages"),        link_page(review)).
linfo(describe_packages,  b("Describe Packages"),      link_page(description)).
linfo(edit_dictionary,    b("Edit the Dictionary"),    link_page(dictionary)).
linfo(database_maintenance, b("Manage the DB"),       link_page(maintenance)).
linfo(database_dialogues, b("Modify Dialogues"),link_page(dialogues)).
linfo(database_templates, b("Reload Templates"),link_page(templates)).


 %% linfo(maintenance, "Maintenance", link_page(maintenance)).
 %% 
 %% 
%% Search Pages
linfo(do_search, b("Search Packages"), link_page(match)).

linfo(navigation_basics, "Database Navigation", 
        link_page(admin_info, navigation)).
linfo(reviewing_procedure, "Reviewing Procedure", 
        link_page(admin_info, reviewing)).
linfo(editing_dictionary, "Editing the Dictionary", 
        link_page(admin_info, editing)).
linfo(server_procedures, "Server Management", 
        link_page(admin_info, server)).
